500
How can I add an extra button to a spin editor

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComDefaultItemHeight to 20
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESpinType
				Send ComAddButton of hoEditor "B1" 2 1 "This is a bit of text that's shown when the cursor hovers the button B1" Nothing Nothing
				Set ComButtonWidth of hoEditor to 20
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
	Send Destroy to hoItems
End_Procedure
499
How can I remove or delete the buttons in the editor
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Send ComAddButton of hoEditor "B1" 1 0 "This is a bit of text that's shown when the cursor hovers the button B1" Nothing Nothing
				Send ComAddButton of hoEditor "B3" 2 1 "This is a bit of text that's shown when the cursor hovers the button B3" Nothing Nothing
				Send ComAddButton of hoEditor "B4" 1 1 "This is a bit of text that's shown when the cursor hovers the button B4" Nothing Nothing
				Send ComRemoveButton of hoEditor "B1"
				Set ComButtonWidth of hoEditor to 20
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Text 1" to Nothing
		Get ComAddItem of hoItems "Text 2" to Nothing
	Send Destroy to hoItems
End_Procedure
498
How can I hide the buttons in the editor
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComDefaultItemHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Send ComAddButton of hoEditor "B1" 1 0 "This is a bit of text that's shown when the cursor hovers the button B1" Nothing Nothing
				Send ComAddButton of hoEditor "B3" 2 1 "This is a bit of text that's shown when the cursor hovers the button B3" Nothing Nothing
				Send ComAddButton of hoEditor "B4" 1 1 "This is a bit of text that's shown when the cursor hovers the button B4" Nothing Nothing
				Set ComButtonWidth of hoEditor to 0
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Text 1" to Nothing
		Get ComAddItem of hoItems "Text 2" to Nothing
	Send Destroy to hoItems
End_Procedure
497
How can I change the width of the buttons in the editor

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComDefaultItemHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Send ComAddButton of hoEditor "B1" 1 0 "This is a bit of text that's shown when the cursor hovers the button B1" Nothing Nothing
				Send ComAddButton of hoEditor "B3" 2 1 "This is a bit of text that's shown when the cursor hovers the button B3" Nothing Nothing
				Send ComAddButton of hoEditor "B4" 1 1 "This is a bit of text that's shown when the cursor hovers the button B4" Nothing Nothing
				Set ComButtonWidth of hoEditor to 24
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Text 1" to Nothing
		Get ComAddItem of hoItems "Text 2" to Nothing
	Send Destroy to hoItems
End_Procedure
496
How can I add extra buttons to an editor
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Send ComAddButton of hoEditor "B1" 1 0 "This is a bit of text that's shown when the cursor hovers the button B1" Nothing Nothing
				Send ComAddButton of hoEditor "B2" 2 0 "This is a bit of text that's shown when the cursor hovers the button B2" Nothing Nothing
				Send ComAddButton of hoEditor "B3" 3 1 "This is a bit of text that's shown when the cursor hovers the button B3" Nothing Nothing
				Send ComAddButton of hoEditor "B4" 1 1 "This is a bit of text that's shown when the cursor hovers the button B4" Nothing Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Text 1" to Nothing
		Get ComAddItem of hoItems "Text 2" to Nothing
	Send Destroy to hoItems
End_Procedure
495
is there any function to specify the number of rows / items being visible in a drop down list editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "First item" Nothing
				Send ComAddItem of hoEditor 2 "Second item" Nothing
				Send ComAddItem of hoEditor 3 "Third item" Nothing
				Set ComDropDownRows of hoEditor to 1
				Set ComPopupAppearance of hoEditor to OLEFlatApp
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
494
How can I change the border for a drop down editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
				Set ComPopupAppearance of hoEditor to OLEFlatApp
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Today" to Nothing
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voEditor1
		Get ComCellEditor of hoItems1 (ComAddItem(hoItems1,"Today")) 0 to voEditor1
		Handle hoEditor1
		Get Create (RefClass(cComEditor)) to hoEditor1
		Set pvComObject of hoEditor1 to voEditor1
			Set ComEditType of hoEditor1 to OLEDateType
		Send Destroy to hoEditor1
	Send Destroy to hoItems1
End_Procedure
493
How can I remove a predefined item in a drop down editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Color" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEColorListType
		Set ComOption OLEexColorListShowName to True
		Send ComRemoveItem 255
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 65280 to Nothing
	Send Destroy to hoItems1
End_Procedure
492
How can I remove or clear all predefined items in a drop down editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Color" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEColorListType
		Send ComClearItems
		Send ComAddItem 255 "Red Color" Nothing
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
	Send Destroy to hoItems
End_Procedure
491
How can I center the predefined items in a drop down editor editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "First item" Nothing
				Send ComAddItem of hoEditor 2 "Second item" Nothing
				Send ComAddItem of hoEditor 3 "Third item" Nothing
				Set ComDropDownAlignment of hoEditor to OLECenterAlignment
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
490
How can I right align the items in a drop down editor editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "First item" Nothing
				Send ComAddItem of hoEditor 2 "Second item" Nothing
				Send ComAddItem of hoEditor 3 "Third item" Nothing
				Set ComDropDownAlignment of hoEditor to OLERightAlignment
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
489
How can I specify the width of the drop down editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComDropDownAutoWidth of hoEditor to OLEexDropDownEditorWidth
				Set ComDropDownMinWidth of hoEditor to 385
				Set ComEditType of hoEditor to OLEColorListType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
		Get ComAddItem of hoItems 65280 to Nothing
	Send Destroy to hoItems
End_Procedure
488
How can hide the drop down button for an editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComDropDownVisible of hoEditor to False
				Set ComEditType of hoEditor to OLEColorListType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
		Get ComAddItem of hoItems 65280 to Nothing
	Send Destroy to hoItems
End_Procedure
487
How can assign a tooltip to a drop down list editor
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "First item" Nothing
				Send ComAddItem of hoEditor 2 "Second item" Nothing
				Send ComAddItem of hoEditor 3 "Third item" Nothing
				Set ComItemToolTip of hoEditor 1 to "This is a tooltip that shows when user hovers the <b>first</b> item"
				Set ComItemToolTip of hoEditor 2 to "This is a tooltip that shows when user hovers the <b>second</b> item"
				Set ComItemToolTip of hoEditor 3 to "This is a tooltip that shows when user hovers the <b>third</b> item"
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
486
How can I lock, disable make read only an editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComLocked of hoEditor to True
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "First item" Nothing
				Send ComAddItem of hoEditor 2 "Second item" Nothing
				Send ComAddItem of hoEditor 3 "Third item" Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
485
How can I sort the items in a drop down list editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "Second item" Nothing
				Send ComAddItem of hoEditor 2 "First item" Nothing
				Send ComAddItem of hoEditor 3 "Third item" Nothing
				Send ComSortItems of hoEditor True Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
484
How can I expand an item in the tree or a hierarchy of a drop down editor

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Set ComDropDownAutoWidth of hoEditor to OLEexDropDownEditorWidth
				Send ComAddItem of hoEditor 1 "<b>CObject</b> class" 1
				Send ComInsertItem of hoEditor 2 "<b>CCmdTarget</b> class" 2 1
				Send ComInsertItem of hoEditor 3 "<b>CWnd</b> class" 3 2
				Send ComInsertItem of hoEditor 6 "<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>" 1 1
				Send ComAddItem of hoEditor 4 "Exceptions" 1
				Send ComInsertItem of hoEditor 7 "<b>System</b> Exceptions" 2 4
				Send ComAddItem of hoEditor 5 "File Services" 2
				Set ComExpandItem of hoEditor 1 to True
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
483
How can I display a tree or a hierarchy in a drop down editor

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Set ComDropDownAutoWidth of hoEditor to OLEexDropDownEditorWidth
				Send ComAddItem of hoEditor 1 "<b>CObject</b> class" 1
				Send ComInsertItem of hoEditor 2 "<b>CCmdTarget</b> class" 2 1
				Send ComInsertItem of hoEditor 3 "<b>CWnd</b> class" 3 2
				Send ComInsertItem of hoEditor 6 "<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>" 1 1
				Send ComAddItem of hoEditor 4 "Exceptions" 1
				Send ComInsertItem of hoEditor 7 "<b>System</b> Exceptions" 2 4
				Send ComAddItem of hoEditor 5 "File Services" 2
				Send ComExpandAll of hoEditor
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
482
How can I look for items that includes the typed characters in a drop down list editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComOption of hoEditor OLEexAutoSearch to 1
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "First item" Nothing
				Send ComAddItem of hoEditor 2 "Second item" Nothing
				Send ComAddItem of hoEditor 3 "Third item" Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
481
How can I keep the selection background color while editor is visible

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelBackColor to (RGB(255,0,0))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComOption of hoEditor OLEexKeepSelBackColor to True
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "First item" Nothing
				Send ComAddItem of hoEditor 2 "Second item" Nothing
				Send ComAddItem of hoEditor 3 "Third item" Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
480
How can I select from a drop down list the editor, when the user starts typing in the editor, while it is closed and focused

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComOption of hoEditor OLEexAutoDropDownList to 1
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "First item" 1
				Send ComAddItem of hoEditor 2 "Second item" 3
				Send ComAddItem of hoEditor 3 "Third item" 2
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
479
How can I automatically drop down the list editor, when the user starts typing in the editor

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComOption of hoEditor OLEexAutoDropDownList to -1
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "First item" 1
				Send ComAddItem of hoEditor 2 "Second item" 3
				Send ComAddItem of hoEditor 3 "Third item" 2
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
478
How can I add a Font editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Font" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEFontType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Tahoma" to Nothing
	Send Destroy to hoItems
End_Procedure
477
How can I change the visual appearance for the buttons in the calculator editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLECalculatorType
		Variant vPicture
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture
		Set ComOption OLEexCalcPictureUp to (vPicture)
		Variant vPicture1
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\auction.gif`)" to vPicture1
		Set ComOption OLEexCalcPictureDown to (vPicture1)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
476
How can I customize the caption of buttons in the calculator editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLECalculatorType
		Set ComOption OLEexCalcButtons to "0;1;2;3;4;5;6;7;8;9;<b>+</b>;<fgcolor=FF0000>=</fgcolor>"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
475
How can I customize the caption of buttons in the calculator editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLECalculatorType
		Set ComOption OLEexCalcButtons to "0;1;2;3;4;5;6;7;8;9"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
474
How can I specify the width and height of the buttons in the calculator editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLECalculatorType
		Set ComOption OLEexCalcButtonWidth to 32
		Set ComOption OLEexCalcButtonHeight to 32
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
473
How can I change the "Cannot divide by zero" message that shows in the calculator editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLECalculatorType
		Set ComOption OLEexCalcCannotDivideByZero to "Divizion by zero"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
472
How can I enable or disable executing operations while the calculator editor is focused and closed

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLECalculatorType
		Set ComOption OLEexCalcExecuteKeys to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
471
How can I add a calculator editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLECalculatorType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
470
How can I edit a number between a range or interval

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLESliderType
		Set ComNumeric to OLEexInteger
		Set ComOption OLEexSpinStep to 0
		Set ComOption OLEexSliderWidth to 0
		Set ComOption OLEexSliderMin to 5
		Set ComOption OLEexSliderMax to 15
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
469
How can I hide or show the spin in the slider or track bar editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLESliderType
		Set ComOption OLEexSpinStep to 0
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
468
How can I add a slider or track bar editor, with a fixed size

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLESliderType
		Set ComOption OLEexSliderWidth to 64
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
467
How can I add a slider or track bar editor, so it covers half of the cell

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLESliderType
		Set ComOption OLEexSliderWidth to -50
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
466
How can I add a slider or track bar editor, so it covers the full cell

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLESliderType
		Set ComOption OLEexSliderWidth to -100
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
465
How can I add a slider or track bar editor within a range or interval of numbers

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Spin from 5 to 15" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLESliderType
		Set ComNumeric to OLEexInteger
		Set ComOption OLEexSliderMin to 5
		Set ComOption OLEexSliderMax to 15
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
464
How can I add a slider or track bar editor within a range or interval of float numbers

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Spin from 5 to 15" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLESliderType
		Set ComNumeric to OLEexFloat
		Set ComOption OLEexSliderMin to 0
		Set ComOption OLEexSliderMax to 1
		Set ComOption OLEexSpinStep to "0.01"
		Set ComOption OLEexSliderStep to "0.01"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "0.3" to Nothing
	Send Destroy to hoItems
End_Procedure
463
How can I add a spin editor within a range or interval of float numbers

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Spin from 5 to 15" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLESliderType
		Set ComNumeric to OLEexFloat
		Set ComOption OLEexSliderWidth to 0
		Set ComOption OLEexSliderMin to 0
		Set ComOption OLEexSliderMax to 1
		Set ComOption OLEexSpinStep to "0.01"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "0.3" to Nothing
	Send Destroy to hoItems
End_Procedure
462
How can I add a spin editor within a range or interval of numbers

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Spin from 5 to 15" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLESliderType
		Set ComNumeric to OLEexInteger
		Set ComOption OLEexSliderWidth to 0
		Set ComOption OLEexSliderMin to 5
		Set ComOption OLEexSliderMax to 15
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
461
How can I add a slider or track bar editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Slider" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESliderType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 10 to Nothing
	Send Destroy to hoItems
End_Procedure
460
I have check box column, but the check-boxes looks disabled. What can I do

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Check" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLECheckValueType
		Set ComOption OLEexCheckValue2 to 1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems False to Nothing
		Get ComAddItem of hoItems True to Nothing
		Get ComAddItem of hoItems False to Nothing
	Send Destroy to hoItems
End_Procedure
459
How do I add check box column, so the cell value is changed as I click the cells

Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "C" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 18
			Set ComAllowSizing of hoColumn to False
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLECheckValueType
				Set ComOption of hoEditor OLEexCheckValue2 to 1
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "Text" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,False)) 1 to "Check 1"
		Set ComCellValue of hoItems (ComAddItem(hoItems,True)) 1 to "Check 2"
		Set ComCellValue of hoItems (ComAddItem(hoItems,False)) 1 to "Check 3"
	Send Destroy to hoItems
End_Procedure
458
How do I add check box column, so the cell value is changed as I click the cells

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Check" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLECheckValueType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems False to Nothing
		Get ComAddItem of hoItems True to Nothing
		Get ComAddItem of hoItems False to Nothing
	Send Destroy to hoItems
End_Procedure
457
How do I disable adding new lines using the ENTER key in a memo or a multiple lines edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEMemoDropDownType
		Set ComOption OLEexMemoDropDownAcceptReturn to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellSingleLine of hoItems (ComAddItem(hoItems,"This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.")) 0 to False
	Send Destroy to hoItems
End_Procedure
456
How do I add a vertical scroll bar for a memo or a multiple lines edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEMemoDropDownType
		Set ComOption OLEexMemoVScrollBar to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellSingleLine of hoItems (ComAddItem(hoItems,"This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.")) 0 to False
	Send Destroy to hoItems
End_Procedure
455
How do I add a horizontal scroll bar for a memo or a multiple lines edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEMemoDropDownType
		Set ComOption OLEexMemoHScrollBar to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellSingleLine of hoItems (ComAddItem(hoItems,"This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.")) 0 to False
	Send Destroy to hoItems
End_Procedure
454
How can I specify the width or the height for a drop down memo or a multiple lines edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEMemoDropDownType
		Set ComOption OLEexMemoDropDownWidth to 256
		Set ComOption OLEexMemoDropDownHeight to 64
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellSingleLine of hoItems (ComAddItem(hoItems,"This is a long text that should break the line, and get it displayed on multiple lines.")) 0 to False
	Send Destroy to hoItems
End_Procedure
453
How do I add a drop down memo or a multiple lines edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEMemoDropDownType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellSingleLine of hoItems (ComAddItem(hoItems,"This is a long text that should break the line, and get it displayed on multiple lines.")) 0 to False
	Send Destroy to hoItems
End_Procedure
452
How do I add a color list editor with my own or custom colors

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Color" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEColorListType
		Set ComOption OLEexColorListShowName to True
		Send ComClearItems
		Send ComAddItem 255 "Red Color" Nothing
		Send ComAddItem 16711680 "Blue Color" Nothing
		Send ComAddItem 65280 "Green Color" Nothing
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
	Send Destroy to hoItems
End_Procedure
451
How do I add a color list editor with my own or custom colors

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Color" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEColorListType
		Send ComClearItems
		Send ComAddItem 255 "Red Color" Nothing
		Send ComAddItem 16711680 "Blue Color" Nothing
		Send ComAddItem 65280 "Green Color" Nothing
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
	Send Destroy to hoItems
End_Procedure
450
How can I show the color's name in a color list editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Color" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEColorListType
		Set ComOption OLEexColorListShowName to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
	Send Destroy to hoItems
End_Procedure
449
How do I add a color list editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Color" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEColorListType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
	Send Destroy to hoItems
End_Procedure
448
How can I access my own custom or ActiveX editor

Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawGridLines to OLEexAllLines
	Set ComDefaultItemHeight to 128
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEUserEditorType
				Send ComUserEditor of hoEditor "MSCAL.Calendar" ""
				Variant voCalendar
				Get ComUserEditorObject of hoEditor to voCalendar
				Handle hoCalendar
				Get Create (RefClass(cComCalendar)) to hoCalendar
				Set pvComObject of hoCalendar to voCalendar
					Set ComBackColor of hoCalendar to (RGB(255,255,255))
					Set ComGridCellEffect of hoCalendar to 0
					Set ComShowTitle of hoCalendar to False
					Set ComShowDateSelectors of hoCalendar to False
				Send Destroy to hoCalendar
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "MSCal.Calendar" to Nothing
		Get ComAddItem of hoItems "MSCal.Calendar" to Nothing
	Send Destroy to hoItems
End_Procedure
447
How can I add my own custom or ActiveX editor

Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawGridLines to OLEexAllLines
	Set ComDefaultItemHeight to 128
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEUserEditorType
				Send ComUserEditor of hoEditor "MSCAL.Calendar" ""
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "MSCal.Calendar" to Nothing
		Get ComAddItem of hoItems "MSCal.Calendar" to Nothing
	Send Destroy to hoItems
End_Procedure
446
How can I add a hyperlink editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Shell.Execute" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLELinkEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "http://www.exontrol.com" to Nothing
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 "c:\" to Nothing
	Send Destroy to hoItems1
End_Procedure
445
How can I add a drop down editor, that allows only predefined values, but still being able to edit and select

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEPickEditType
				Send ComAddItem of hoEditor 1 "The first item" 1
				Send ComAddItem of hoEditor 2 "The second item" 3
				Send ComAddItem of hoEditor 3 "The third item" 2
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "The first item" to Nothing
		Get ComAddItem of hoItems "The third item" to Nothing
	Send Destroy to hoItems
End_Procedure
444
How can I show or hide the rectangle arround progress bar editor

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelForeColor to (RGB(0,0,0))
	Set ComSelBackColor to (RGB(128,255,255))
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Progress" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEProgressBarType
		Set ComOption OLEexProgressBarMarkTicker to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 33 to Nothing
	Send Destroy to hoItems
End_Procedure
443
How can I hide the caption / percent in the progress bar editor

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelForeColor to (RGB(0,0,0))
	Set ComSelBackColor to (RGB(128,255,255))
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Progress" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEProgressBarType
		Set ComOption OLEexProgressBarAlignment to -1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 33 to Nothing
	Send Destroy to hoItems
End_Procedure
442
How can I align the caption in the center of the progress bar editor

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelForeColor to (RGB(0,0,0))
	Set ComSelBackColor to (RGB(128,255,255))
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Progress" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEProgressBarType
		Set ComOption OLEexProgressBarAlignment to 1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 33 to Nothing
	Send Destroy to hoItems
End_Procedure
441
How can I align the caption to the right in the progress bar editor

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelForeColor to (RGB(0,0,0))
	Set ComSelBackColor to (RGB(128,255,255))
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Progress" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEProgressBarType
		Set ComOption OLEexProgressBarAlignment to 2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 33 to Nothing
	Send Destroy to hoItems
End_Procedure
440
How can I change the background color for a progress bar editor

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelForeColor to (RGB(0,0,0))
	Set ComSelBackColor to (RGB(128,255,255))
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Progress" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEProgressBarType
		Set ComOption OLEexProgressBarBackColor to 255
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 33 to Nothing
	Send Destroy to hoItems
End_Procedure
439
How can I add a progress bar editor

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelForeColor to (RGB(0,0,0))
	Set ComSelBackColor to (RGB(128,255,255))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Progress" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEProgressBarType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 33 to Nothing
	Send Destroy to hoItems
End_Procedure
438
How can I add a button editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Button" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEButtonType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Just a text" to Nothing
	Send Destroy to hoItems
End_Procedure
437
How can I show or hide the type of the OLE Object for Photo or a Picture editor

Procedure OnCreate
	Forward Send OnCreate
	Set ComColumnAutoResize to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Photo" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 74
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEPictureType
				Set ComOption of hoEditor OLEexShowPictureType to False
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems Nothing to h
		Variant vPicture
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\sample.bmp`)" to vPicture
		Set ComCellValue of hoItems h 0 to (vPicture)
		Set ComItemHeight of hoItems h to 64
	Send Destroy to hoItems
End_Procedure
436
How can I add a Photo or a Picture editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Photo" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEPictureType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems Nothing to h
		Variant vPicture
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\sample.bmp`)" to vPicture
		Set ComCellValue of hoItems h 0 to (vPicture)
		Set ComItemHeight of hoItems h to 64
	Send Destroy to hoItems
End_Procedure
435
How can I hide or show the "System" page in the color editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Color" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEColorType
		Set ComOption OLEexColorShowSystem to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
	Send Destroy to hoItems
End_Procedure
434
How can I hide or show the "Palette" page in the color editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Color" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEColorType
		Set ComOption OLEexColorShowPalette to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
	Send Destroy to hoItems
End_Procedure
433
How do I add a color editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Color" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEColorType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
	Send Destroy to hoItems
End_Procedure
432
How do I change the masking character

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Mask" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEMaskType
		Set ComMask to "###"
		Set ComMaskChar to 48
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "" to Nothing
	Send Destroy to hoItems
End_Procedure
431
How do I mask an IP

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "IP" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEMaskType
		Set ComMask to "{0,255}\.{0,255}\.{0,255}\.{0,255}"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1.2.3.4" to Nothing
	Send Destroy to hoItems
End_Procedure
430
How do I add a mask editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Mask" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEMaskType
		Set ComMask to "{0,255}\.{0,255}\.{0,255}\.{0,255}"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1.2.3.4" to Nothing
	Send Destroy to hoItems
End_Procedure
429
How to show or hide the week numbers header in a drop down date picker calendar editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEDateType
		Set ComOption OLEexDateWeeksHeader to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Today" to Nothing
	Send Destroy to hoItems
End_Procedure
428
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEDateType
		Set ComOption OLEexDateShowScroll to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Today" to Nothing
	Send Destroy to hoItems
End_Procedure
427
How do highlight the "Today" date is the drop down date picker calendar editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEDateType
		Set ComOption OLEexDateMarkToday to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Today" to Nothing
	Send Destroy to hoItems
End_Procedure
426
How do I show or hide the "Today" button is the drop down date picker calendar editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEDateType
		Set ComOption OLEexDateShowTodayButton to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Today" to Nothing
	Send Destroy to hoItems
End_Procedure
425
How to specify the first day of the week in the drop down date picker calendar editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEDateType
		Set ComOption OLEexDateFirstWeekDay to 1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Today" to Nothing
	Send Destroy to hoItems
End_Procedure
424
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEDateType
		Set ComOption OLEexDateWeekDays to "Du Lu Ma Mi Jo Vi Si"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Today" to Nothing
	Send Destroy to hoItems
End_Procedure
423
How can I change the name of the months in the drop down date picker calendar editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEDateType
		Set ComOption OLEexDateMonths to "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Today" to Nothing
	Send Destroy to hoItems
End_Procedure
422
Can I change the "Today" caption being displayed in the drop down date picker calendar editor

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEDateType
		Set ComOption OLEexDateTodayCaption to "Azi"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Today" to Nothing
	Send Destroy to hoItems
End_Procedure
421
How can allow empty date to drop down date picker control or a calendar control

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEDateType
		Set ComOption OLEexDateAllowNullDate to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Today" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "Today" to Nothing
	Send Destroy to hoItems
End_Procedure
420
How can I a drop down date picker control or a calendar control

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Today" to Nothing
	Send Destroy to hoItems
End_Procedure
419
How can I have an OR combination of my bit values, something like a check-box list editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "CkeckList" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLECheckListType
				Send ComAddItem of hoEditor 1 "Bit <b>1</b>" Nothing
				Send ComAddItem of hoEditor 2 "Bit <b>2</b>" Nothing
				Send ComAddItem of hoEditor 4 "Bit <b>3</b>" Nothing
				Send ComAddItem of hoEditor 8 "Bit <b>4</b>" Nothing
				Send ComAddItem of hoEditor 16 "Bit <b>5</b>" Nothing
				Send ComAddItem of hoEditor 32 "Bit <b>6</b>" Nothing
				Send ComAddItem of hoEditor 64 "Bit <b>7</b>" Nothing
				Send ComAddItem of hoEditor 128 "Bit <b>8</b>" Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 112 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
418
How do I stop resizing the memo or a multiple lines edit control, while the user types

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEMemoType
		Set ComOption OLEexMemoAutoSize to False
		Set ComOption OLEexMemoHScrollBar to True
		Set ComOption OLEexMemoVScrollBar to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellSingleLine of hoItems (ComAddItem(hoItems,"This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.")) 0 to False
	Send Destroy to hoItems
End_Procedure
417
How do I add a horizontal scroll bar for a memo or a multiple lines edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEMemoType
		Set ComOption OLEexMemoHScrollBar to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellSingleLine of hoItems (ComAddItem(hoItems,"This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.")) 0 to False
	Send Destroy to hoItems
End_Procedure
416
How do I add a vertical scroll bar for a memo or a multiple lines edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEMemoType
		Set ComOption OLEexMemoVScrollBar to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellSingleLine of hoItems (ComAddItem(hoItems,"This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.")) 0 to False
	Send Destroy to hoItems
End_Procedure
415
How do I add a memo or a multiple lines edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEMemoType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellSingleLine of hoItems (ComAddItem(hoItems,"This is a long text that should break the line, and get it displayed on multiple lines.")) 0 to False
	Send Destroy to hoItems
End_Procedure
414
How to specify the proposed change when the user clicks a spin control.

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLESpinType
		Set ComNumeric to OLEexInteger
		Set ComOption OLEexSpinStep to 10
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 10 to Nothing
		Get ComAddItem of hoItems 20 to Nothing
	Send Destroy to hoItems
End_Procedure
413
How do I add a spin editor that allows only integer values

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLESpinType
		Set ComNumeric to OLEexInteger
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
412
How do I add a spin editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESpinType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
411
How do I specify in a drop down list editor, that I do not want to have predefined icon

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "The first item" 1
				Send ComAddItem of hoEditor 2 "The second item" 3
				Send ComAddItem of hoEditor 3 "The third item" 2
				Set ComOption of hoEditor OLEexDropDownImage to False
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
410
How do I add a drop down editor, that allows only predefined values

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "The first item" 1
				Send ComAddItem of hoEditor 2 "The second item" 3
				Send ComAddItem of hoEditor 3 "The third item" 2
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
409
How to allow the editor to work on insert or overtype mode

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComOption OLEexEditAllowOverType to True
		Set ComOption OLEexEditOverType to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "000" to Nothing
		Get ComAddItem of hoItems "111" to Nothing
		Get ComAddItem of hoItems "222" to Nothing
	Send Destroy to hoItems
End_Procedure
408
How to set foreground color for a locked, or read only edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComLocked to True
		Set ComOption OLEexEditLockedForeColor to 8421504
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "000" to Nothing
		Get ComAddItem of hoItems "111" to Nothing
		Get ComAddItem of hoItems "222" to Nothing
	Send Destroy to hoItems
End_Procedure
407
How to set background color for a locked, or read only edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComLocked to True
		Set ComOption OLEexEditLockedBackColor to 8421504
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "000" to Nothing
		Get ComAddItem of hoItems "111" to Nothing
		Get ComAddItem of hoItems "222" to Nothing
	Send Destroy to hoItems
End_Procedure
406
How to set the number of characters selected, when an EditType editor is opened

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComOption OLEexEditSelLength to 1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "000" to Nothing
		Get ComAddItem of hoItems "111" to Nothing
		Get ComAddItem of hoItems "222" to Nothing
	Send Destroy to hoItems
End_Procedure
405
How to set the starting point of text selected, when an EditType editor is opened

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComOption OLEexEditSelStart to 1
		Set ComOption OLEexEditSelLength to 1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "000" to Nothing
		Get ComAddItem of hoItems "111" to Nothing
		Get ComAddItem of hoItems "222" to Nothing
	Send Destroy to hoItems
End_Procedure
404
How to specifiy the symbol that indicates the decimal values while editing a floating point number

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Float" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "len(value) ? (round(value) = value ? value : value format `|,|0`) : ``"
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Set ComNumeric of hoEditor to OLEexFloatInteger
				Set ComOption of hoEditor OLEexEditDecimalSymbol to 44
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0.12 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2.45 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
403
How can I edit a float number

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComNumeric to OLEexFloat
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
402
How can I edit a number

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComNumeric to OLEexInteger
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
401
How do I limit the length of the text that the user may enter into an edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComOption OLEexEditLimitText to 1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure